home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / AGS_SL10.ZIP / AGS_LOFF.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-17  |  6KB  |  323 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     String   STRING001
  27.     String   TSTRING002(40)
  28.     String   TSTRING003(41)
  29.     String   TSTRING004(42)
  30.     String   TSTRING005(43)
  31.     String   TSTRING006(50)
  32.     String   TSTRING007(50)
  33.     String   TSTRING008(50)
  34.     String   STRING009
  35.     String   STRING010
  36.     String   STRING011
  37.     String   STRING012
  38.     String   STRING013
  39.     String   STRING014
  40.     String   STRING015
  41.     String   STRING016
  42.     String   STRING017
  43.  
  44. ;------------------------------------------------------------------------------
  45.  
  46.     STRING001 = ReadLine(PPEPath() + "ags_last.cfg", 16)
  47.     FClose -1
  48.     If (Upper(STRING001) == "NO") Goto LABEL001
  49.     If (Upper(STRING001) == "YES") Goto LABEL002
  50.     :LABEL001
  51.     If (CDOn() == 1) Goto LABEL002
  52.     If (CDOn() == 0) End
  53.     :LABEL002
  54.     GetUser
  55.     STRING012 = U_Name()
  56.     STRING013 = U_City
  57.     STRING014 = Carrier()
  58.     STRING011 = U_Logons()
  59.     STRING009 = U_Bul() / 1024
  60.     STRING010 = U_Bdl() / 1024
  61.     STRING016 = ReadLine(PPEPath() + "ags_tmp." + String(PcbNode()), 1)
  62.     STRING017 = ReadLine(PPEPath() + "ags_tmp." + String(PcbNode()), 2)
  63.     STRING015 = ReadLine(PPEPath() + "ags_tmp." + String(PcbNode()), 3)
  64.     FClose -1
  65.     Delete PPEPath() + "ags_tmp." + String(PcbNode())
  66.     For INTEGER001 = 1 To 37
  67.         If (INTEGER001 == 1) Goto LABEL003
  68.         INTEGER001 = INTEGER001 + 3
  69.         :LABEL003
  70.         TSTRING002(INTEGER001) = ReadLine(PPEPath() + "last.dat", INTEGER001)
  71.     Next
  72.     For INTEGER002 = 2 To 38
  73.         If (INTEGER002 == 2) Goto LABEL004
  74.         INTEGER002 = INTEGER002 + 3
  75.         :LABEL004
  76.         TSTRING003(INTEGER002) = ReadLine(PPEPath() + "last.dat", INTEGER002)
  77.     Next
  78.     For INTEGER003 = 3 To 39
  79.         If (INTEGER003 == 3) Goto LABEL005
  80.         INTEGER003 = INTEGER003 + 3
  81.         :LABEL005
  82.         TSTRING004(INTEGER003) = ReadLine(PPEPath() + "last.dat", INTEGER003)
  83.     Next
  84.     For INTEGER004 = 4 To 40
  85.         If (INTEGER004 == 4) Goto LABEL006
  86.         INTEGER004 = INTEGER004 + 3
  87.         :LABEL006
  88.         TSTRING005(INTEGER004) = ReadLine(PPEPath() + "last.dat", INTEGER004)
  89.     Next
  90.     FClose -1
  91.     For INTEGER005 = 1 To 37
  92.         If (INTEGER005 == 1) Goto LABEL007
  93.         INTEGER005 = INTEGER005 + 3
  94.         :LABEL007
  95.         TSTRING006(INTEGER005) = ReadLine(PPEPath() + "last2.dat", INTEGER005)
  96.     Next
  97.     For INTEGER006 = 2 To 38
  98.         If (INTEGER006 == 2) Goto LABEL008
  99.         INTEGER006 = INTEGER006 + 3
  100.         :LABEL008
  101.         TSTRING008(INTEGER006) = ReadLine(PPEPath() + "last2.dat", INTEGER006)
  102.     Next
  103.     For INTEGER007 = 3 To 39
  104.         If (INTEGER007 == 3) Goto LABEL009
  105.         INTEGER007 = INTEGER007 + 3
  106.         :LABEL009
  107.         TSTRING007(INTEGER007) = ReadLine(PPEPath() + "last2.dat", INTEGER007)
  108.     Next
  109.     TSTRING002(1) = TSTRING002(5)
  110.     TSTRING002(5) = TSTRING002(9)
  111.     TSTRING002(9) = TSTRING002(13)
  112.     TSTRING002(13) = TSTRING002(17)
  113.     TSTRING002(17) = TSTRING002(21)
  114.     TSTRING002(21) = TSTRING002(25)
  115.     TSTRING002(25) = TSTRING002(29)
  116.     TSTRING002(29) = TSTRING002(33)
  117.     TSTRING002(33) = TSTRING002(37)
  118.     TSTRING002(37) = STRING012
  119.     TSTRING003(2) = TSTRING003(6)
  120.     TSTRING003(6) = TSTRING003(10)
  121.     TSTRING003(10) = TSTRING003(14)
  122.     TSTRING003(14) = TSTRING003(18)
  123.     TSTRING003(18) = TSTRING003(22)
  124.     TSTRING003(22) = TSTRING003(26)
  125.     TSTRING003(26) = TSTRING003(30)
  126.     TSTRING003(30) = TSTRING003(34)
  127.     TSTRING003(34) = TSTRING003(38)
  128.     TSTRING003(38) = STRING013
  129.     TSTRING004(3) = TSTRING004(7)
  130.     TSTRING004(7) = TSTRING004(11)
  131.     TSTRING004(11) = TSTRING004(15)
  132.     TSTRING004(15) = TSTRING004(19)
  133.     TSTRING004(19) = TSTRING004(23)
  134.     TSTRING004(23) = TSTRING004(27)
  135.     TSTRING004(27) = TSTRING004(31)
  136.     TSTRING004(31) = TSTRING004(35)
  137.     TSTRING004(35) = TSTRING004(39)
  138.     TSTRING004(39) = STRING014
  139.     TSTRING005(4) = TSTRING005(8)
  140.     TSTRING005(8) = TSTRING005(12)
  141.     TSTRING005(12) = TSTRING005(16)
  142.     TSTRING005(16) = TSTRING005(20)
  143.     TSTRING005(20) = TSTRING005(24)
  144.     TSTRING005(24) = TSTRING005(28)
  145.     TSTRING005(28) = TSTRING005(32)
  146.     TSTRING005(32) = TSTRING005(36)
  147.     TSTRING005(36) = TSTRING005(40)
  148.     TSTRING005(40) = STRING015
  149.     TSTRING006(1) = TSTRING006(5)
  150.     TSTRING006(5) = TSTRING006(9)
  151.     TSTRING006(9) = TSTRING006(13)
  152.     TSTRING006(13) = TSTRING006(17)
  153.     TSTRING006(17) = TSTRING006(21)
  154.     TSTRING006(21) = TSTRING006(25)
  155.     TSTRING006(25) = TSTRING006(29)
  156.     TSTRING006(29) = TSTRING006(33)
  157.     TSTRING006(33) = TSTRING006(37)
  158.     TSTRING006(37) = STRING009 - STRING016
  159.     TSTRING008(2) = TSTRING008(6)
  160.     TSTRING008(6) = TSTRING008(10)
  161.     TSTRING008(10) = TSTRING008(14)
  162.     TSTRING008(14) = TSTRING008(18)
  163.     TSTRING008(18) = TSTRING008(22)
  164.     TSTRING008(22) = TSTRING008(26)
  165.     TSTRING008(26) = TSTRING008(30)
  166.     TSTRING008(30) = TSTRING008(34)
  167.     TSTRING008(34) = TSTRING008(38)
  168.     TSTRING008(38) = STRING010 - STRING017
  169.     TSTRING007(3) = TSTRING007(7)
  170.     TSTRING007(7) = TSTRING007(11)
  171.     TSTRING007(11) = TSTRING007(15)
  172.     TSTRING007(15) = TSTRING007(19)
  173.     TSTRING007(19) = TSTRING007(23)
  174.     TSTRING007(23) = TSTRING007(27)
  175.     TSTRING007(27) = TSTRING007(31)
  176.     TSTRING007(31) = TSTRING007(35)
  177.     TSTRING007(35) = TSTRING007(39)
  178.     TSTRING007(39) = STRING011
  179.     FClose -1
  180.     FOpen 1, PPEPath() + "last.dat", 1, 3
  181.     FPutLn 1, TSTRING002(1)
  182.     FPutLn 1, TSTRING003(2)
  183.     FPutLn 1, TSTRING004(3)
  184.     FPutLn 1, TSTRING005(4)
  185.     FPutLn 1, TSTRING002(5)
  186.     FPutLn 1, TSTRING003(6)
  187.     FPutLn 1, TSTRING004(7)
  188.     FPutLn 1, TSTRING005(8)
  189.     FPutLn 1, TSTRING002(9)
  190.     FPutLn 1, TSTRING003(10)
  191.     FPutLn 1, TSTRING004(11)
  192.     FPutLn 1, TSTRING005(12)
  193.     FPutLn 1, TSTRING002(13)
  194.     FPutLn 1, TSTRING003(14)
  195.     FPutLn 1, TSTRING004(15)
  196.     FPutLn 1, TSTRING005(16)
  197.     FPutLn 1, TSTRING002(17)
  198.     FPutLn 1, TSTRING003(18)
  199.     FPutLn 1, TSTRING004(19)
  200.     FPutLn 1, TSTRING005(20)
  201.     FPutLn 1, TSTRING002(21)
  202.     FPutLn 1, TSTRING003(22)
  203.     FPutLn 1, TSTRING004(23)
  204.     FPutLn 1, TSTRING005(24)
  205.     FPutLn 1, TSTRING002(25)
  206.     FPutLn 1, TSTRING003(26)
  207.     FPutLn 1, TSTRING004(27)
  208.     FPutLn 1, TSTRING005(28)
  209.     FPutLn 1, TSTRING002(29)
  210.     FPutLn 1, TSTRING003(30)
  211.     FPutLn 1, TSTRING004(31)
  212.     FPutLn 1, TSTRING005(32)
  213.     FPutLn 1, TSTRING002(33)
  214.     FPutLn 1, TSTRING003(34)
  215.     FPutLn 1, TSTRING004(35)
  216.     FPutLn 1, TSTRING005(36)
  217.     FPutLn 1, TSTRING002(37)
  218.     FPutLn 1, TSTRING003(38)
  219.     FPutLn 1, TSTRING004(39)
  220.     FPutLn 1, TSTRING005(40)
  221.     FClose 1
  222.     FOpen 2, PPEPath() + "last2.dat", 1, 3
  223.     FPutLn 2, TSTRING006(1)
  224.     FPutLn 2, TSTRING008(2)
  225.     FPutLn 2, TSTRING007(3)
  226.     FPutLn 2, "--------- "
  227.     FPutLn 2, TSTRING006(5)
  228.     FPutLn 2, TSTRING008(6)
  229.     FPutLn 2, TSTRING007(7)
  230.     FPutLn 2, "--------- "
  231.     FPutLn 2, TSTRING006(9)
  232.     FPutLn 2, TSTRING008(10)
  233.     FPutLn 2, TSTRING007(11)
  234.     FPutLn 2, "--------- "
  235.     FPutLn 2, TSTRING006(13)
  236.     FPutLn 2, TSTRING008(14)
  237.     FPutLn 2, TSTRING007(15)
  238.     FPutLn 2, "--------- "
  239.     FPutLn 2, TSTRING006(17)
  240.     FPutLn 2, TSTRING008(18)
  241.     FPutLn 2, TSTRING007(19)
  242.     FPutLn 2, "--------- "
  243.     FPutLn 2, TSTRING006(21)
  244.     FPutLn 2, TSTRING008(22)
  245.     FPutLn 2, TSTRING007(23)
  246.     FPutLn 2, "--------- "
  247.     FPutLn 2, TSTRING006(25)
  248.     FPutLn 2, TSTRING008(26)
  249.     FPutLn 2, TSTRING007(27)
  250.     FPutLn 2, "--------- "
  251.     FPutLn 2, TSTRING006(29)
  252.     FPutLn 2, TSTRING008(30)
  253.     FPutLn 2, TSTRING007(31)
  254.     FPutLn 2, "--------- "
  255.     FPutLn 2, TSTRING006(33)
  256.     FPutLn 2, TSTRING008(34)
  257.     FPutLn 2, TSTRING007(35)
  258.     FPutLn 2, "--------- "
  259.     FPutLn 2, TSTRING006(37)
  260.     FPutLn 2, TSTRING008(38)
  261.     FPutLn 2, TSTRING007(39)
  262.     FPutLn 2, "--------- "
  263.     FClose 2
  264.  
  265. ;------------------------------------------------------------------------------
  266. ;
  267. ; Usage report (before postprocessing)
  268. ;
  269. ; ■ Statements used :
  270. ;
  271. ;    1       End
  272. ;    24      Goto 
  273. ;    108     Let 
  274. ;    18      If 
  275. ;    2       FOpen 
  276. ;    6       FClose 
  277. ;    80      FPutLn 
  278. ;    1       GetUser
  279. ;    1       Delete 
  280. ;
  281. ;
  282. ; ■ Functions used :
  283. ;
  284. ;    4       -
  285. ;    2       /
  286. ;    32      +
  287. ;    2       -
  288. ;    11      ==
  289. ;    7       <
  290. ;    7       <=
  291. ;    14      >=
  292. ;    7       !
  293. ;    14      &&
  294. ;    7       ||
  295. ;    2       Upper()
  296. ;    1       U_Name()
  297. ;    1       U_Logons()
  298. ;    1       U_Bdl()
  299. ;    1       U_Bul()
  300. ;    4       String()
  301. ;    14      PPEPath()
  302. ;    4       PcbNode()
  303. ;    11      ReadLine()
  304. ;    1       Carrier()
  305. ;    2       CDOn()
  306. ;
  307. ;------------------------------------------------------------------------------
  308. ;
  309. ; Analysis flags : No flag
  310. ;
  311. ;------------------------------------------------------------------------------
  312. ;
  313. ; Postprocessing report
  314. ;
  315. ;    7       For/Next
  316. ;    0       While/EndWhile
  317. ;    0       If/Then or If/Then/Else
  318. ;    0       Select Case
  319. ;
  320. ;------------------------------------------------------------------------------
  321. ;                 AEGiS Corp - Break the routines, code against the machines!
  322. ;------------------------------------------------------------------------------
  323.